proc putout (str : string)
    var win := Window.GetSelect
    Window.Select (OutWin)
    put str
    Window.Select (win)
end putout
